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Exercice  1  (2  pts)  : 

a.  Traduire  l'expression  suivante  en  langage  Pascal  : 


b.  Définir  les  opérateurs  DIV  et  MOD  en  donnant  un  exemple  numérique  pour 
chacun. 


Exercice2  (10  pts)  : 

Soit  l'algorithme  suivant  : 

1.  Faire  le  déroulement  (l'exécution)  de 

Algo  exo2 

l'algorithme  donné  pour  N=  3,  X=2  et 

Var  X,  T,  S  :  réel 

déduire  la  valeur  de  S. 

I,  N  :  entier 

2.  Déduire  l'expression  générale  calculée  par 

Début 

l'algorithme  en  fonction  de  X  et  N. 

Lire  (N,  X) 

S^O 

3.  Réécrire  l'algorithme  en  remplaçant  la 

T<—  1 

boucle  Tant  que  par  la  boucle  Pour. 

I<-  1 

Tant  que  I<  N  Faire 

4.  Traduire  l'algorithme  donné  en  programme 

T<—  T  *  X*X 

pascal. 

S<-  S+  T/  I 

I<-  1+  1 

FinTQ 

Ecrire(S) 

FIN. 

Exercice3  (8  pts) 

Soit  A  une  matrice  d'ordre  (NxM)  de  nombres  entiers  et  V  un  vecteur  de  N  éléments. 
Faire  un  programme  qui  permet  de  : 

1.  lire  la  matrice  A  et  le  vecteur  V; 

2.  calculer  la  moyenne  de  tous  les  éléments  de  la  matrice  A  ; 

3.  calculer  le  nombre  des  éléments  de  la  matrice  qui  sont  supérieurs  à  la 
moyenne  ; 

4.  construire  un  vecteur  VI  constitué  des  éléments  du  vecteur  V  dont  le  rang  (la 
position)  est  pair  ; 

5.  diviser  le  vecteur  V  par  son  Kième  élément,  avec  K  donné. 
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Corrigé 

Examen  d'informatique  (Algorithmique) 


Exercice  1  (2  pts)  : 

a.  Y  :=  sqr(x)-(sqr(x)*x  )/(2-sqr(x))*sqrt(exp(x)/abs(5*x)) 

Ou  y  :=  x*x-(x*x*x)/(2-x*x)*sqrt(exp(x)/abs(5*x)) 

b.  Div_:  permet  d’obtenir  une  division  entière  (ou  la  partie  entière  d’une  division) 
Mod  :  permet  d’obtenir  le  reste  de  la  division. 

Exemples  :  7  div  2=  3 
7  mod  2=  1 

Exercice  2  (10  pts)  : 

1.  Déroulement  de  l’algorithme  : 


N 

X 

I 

T 

S 

3 

2 

1 

1 

0 

1 

1*2*2 

0  +  4/  1=4 

2 

4*2*2 

4+  16/  2=  12 

3 

16*2*2 

12+  64/3=33.33 

4>  N 

La  valeur  de  S  =  33.33 

2.  L’expression  de  S  en  fonction  de  X  et  N  :  S=  X2/l  +  X4/2+  X6/  3  + . X2n/N 

3.  L'écriture  du  programme  en  utilisant  la  boucle  pour 

4.  Program  EX02; 


Algo  EX02 

Var  X,  T,  S  :  real  ; 

Var  X,  T,  S  :  réel 

I,  N  :  integer  ; 

begin 

I,  N  :  entier 

read  (N,  X)  ; 

Début 

S  :=  0  ;  T  :=  1  ;I  :=1 

Lire  (N,  X) 

S^O 

While  I<=  N  do 

TV-  1 

begin 

Pour  i  allant  de  1  à  N  faire 

T  :=T  *  X*X  ; 

T<—  T  *  X*X 

S  :=  S+  T/  I  ; 

S^-  S+  T/  I 

I  :=I+1  ; 

Finpour 

End  ; 

Ecrire(S) 

write(S)  ; 

FIN. 

end. 

Exercice  3  (8  p+s)  : 


Program  calcul; 

Var  A  :  array  [1..5,  1..5]  of  integer; 

Y  :  array[1..6]  ofreal; 

L,j,n,m  cp,l,k,s,x  :  Integer; 

Moy  :  real; 

Begin 

Read(n,m); 

{****  la  lecture  de  la  matrice  ******} 

Write  (‘donner  les  éléments  de  la  matrice’)  ; 

For  i  :=  1  to  n  do 
For  j  :=  1  to  m  do 
Read(A[i,j])  ; 

{****  la  lecture  du  vecteur  V  *****} 

Write  (‘donner  les  éléments  du  vecteur’)  ; 

For  i:=l  to  n  do 
read(V[i]); 

{*****  Calcul  de  la  moyenne  *****} 

S  :=0  ; 

For  i:=  1  to  n  do 

For  J:=  1  to  M  do 
S:=  S+  A[i,j]  ; 

Moy:=  S/  (n*m); 

Write('La  moyenne  est  moy); 

{******  Calcul  du  nombre  d’élément  >  moy****} 
Cp:=0; 

For  i:=l  to  n  do 
For  j  :=  1  to  m  do 

If  A[I,j]  >moy  then 
Cp:=cp+1; 

Write(‘  cp=’,cp); 

{**  Construction  des  vecteurs  V2***} 

L  :=  0  ; 

For  i:=  1  to  n  do 
If  I  mod  2  =0  then 
begin 
L:=  L+l; 


V2[L]:=V[i]; 

End; 

For  i:=  1  to  L  do  write(Y2[i]); 


{*****  la  division  sur  le  Kième  élément****} 


Write(‘introduire  K’)  ; 

Read(K) ; 

If  (K  <1)  or  (K>  n)  or(  V[K  ]=0  )  then  write(‘la  valeur  de  K  est  incorrecte’) 
Else  begin 
X  :=V[K]  ; 

For  i  :=  1  to  n  do 
V[i]  :=  V[i]  /x  ; 

For  i  :=  1  to  n  do 
Write(v[i])  ; 

End; 

End. 


